home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 07ex005.jar / code / ch07 / 07ex005 / 07ex005.pl next >
Perl Script  |  1998-04-01  |  1KB  |  34 lines
  1. #!/export/perl/bin/perl  
  2. #  I cut and pasted the usage message from the getopts.pl library function 
  3. #  so that I could figure out what to do with it 
  4. #  ------------------------------------------------------------------------ 
  5. #  Usage: 
  6. #  do Getopts(\qa:bc\q); # -a takes arg. -b & -c not. Sets opt_* as a 
  7. #  # side effect. 
  8. #  
  9. #  ------------------------------------------------------------------------ 
  10.  
  11. push(@INC, "C:\perl\lib;." ); 
  12. require "getopts.pl" 
  13.  
  14. &Getopts("a:bc"); 
  15.  
  16. #  Allowable command line arguments are: 
  17. #  -a, -b, and -c. 
  18. #  -a requires an argument that does not start with 
  19. #  a dash, such as a filename or username. 
  20. #  Any argument without a leading dash is ignored. 
  21. #  An error is sent for any illegal argument (in this example, -d and -x are 
  22. #  illegal). 
  23. #  $opt_c gets set to 1 if the argument is -c. 
  24. #  $opt_b gets set to 1 if the argument is -b. 
  25. #  $opt_a gets set to the name of the argument if the argument is provided. 
  26. #  If an argument is not provided for -a, $opt_a is not set. 
  27. #  This program is called " prog " . 
  28. if ( $opt_a) { print " The option -a returns $opt_a
  29.  " ;} 
  30. if ( $opt_b) { print " The option -b returns $opt_b
  31.  " ; } 
  32. if ( $opt_c) { print " The option -c returns $opt_c
  33.  " ; } 
  34.